home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Magazin: Amiga-CD 1996 September & October
/
Amiga-CD 1996 #9-10.iso
/
aminet
/
9-96
/
filofax_pro_v1.2
/
steuerung
< prev
next >
Wrap
AmigaDOS Script File
|
1996-07-24
|
2KB
|
109 lines
.key param
.bra [
.ket ]
. Skript für Verwaltungsaufgaben
. © MagnaMedia Verlag AG, AMIGA-Magazin
failat >nil: 21
if "[param]" EQ "info"
set vinfo 1
endif
if "[param]" EQ "copy"
set vcopy 1
endif
if "[param]" EQ "start"
set vassign 1
set vstart 1
set vunassign 1
endif
if "[param]" EQ "install"
set vinstall 1
endif
set binfo 1
set bcopy 1
set binstall 1
echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
set nummer 0
if $binfo EQ 1
echo >>t:tmpsteuerung " Info" NOLINE
set nummer `eval $nummer + 1`
set ninfo $nummer
endif
if $bcopy EQ 1
echo >>t:tmpsteuerung " Kopieren" NOLINE
set nummer `eval $nummer + 1`
set ncopy $nummer
endif
if $bstart EQ 1
echo >>t:tmpsteuerung " Start" NOLINE
set nummer `eval $nummer + 1`
set nstart $nummer
endif
if $binstall EQ 1
echo >>t:tmpsteuerung " Installieren" NOLINE
set nummer `eval $nummer + 1`
set ninstall $nummer
endif
if "[param]" EQ ""
echo >>t:tmpsteuerung " Ende" NOLINE
execute >nil: t:tmpsteuerung
delete >nil: t:tmpsteuerung
set reqerg[$$] `getenv env:AmigaCD/req20erg`
if $reqerg[$$] EQ 0
skip Ende
endif
endif
if $reqerg[$$] EQ $ninfo
set vinfo 1
endif
if $reqerg[$$] EQ $ncopy
set vcopy 1
endif
if $reqerg[$$] EQ $nstart
set vassign 1
set vstart 1
set vunassign 1
endif
if $reqerg[$$] EQ $ninstall
set vinstall 1
endif
endif
if $vinfo EQ 1
;>>>>>>>> Hier Infotext eintragen
:c/Metatool :Aminet/9-96/FiloFax_Pro_v1.2/FiloFax.guide FT=GUIDE
endif
if $vstart EQ 1
;>>>>>>>> Hier steht das Startprogramm
:Aminet/9-96/FiloFax_Pro_v1.2/FiloFax-Normal/FiloFax
endif
if $vcopy EQ 1
execute :c/Verzeichniskopieren ":Aminet/9-96/FiloFax_Pro_v1.2/" "FiloFax_Pro_v1.2" 637952
endif
if $vinstall EQ 1
;>>>>>>>> Hier Install-Skript eintragen
cd :Aminet/9-96/FiloFax_Pro_v1.2
assign l: :l add
:c/WBstarter >nil: :Aminet/9-96/FiloFax_Pro_v1.2/HD_Install
assign l: :l remove
skip Ende
endif
unset binfo
unset vinfo
unset ninfo
unset bstart
unset vstart
unset nstart
unset binstall
unset vinstall
unset ninstall
unset bcopy
unset vcopy
unset ncopy
if "[param]" EQ ""
execute ":Aminet/9-96/FiloFax_Pro_v1.2/Steuerung"
endif
LAB Ende
unsetenv reqerg[$$]